﻿<!--#include file="const.inc"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
%>
<%
if sid="Null" then
Response.Redirect "/login.asp?sid="&sidd&"&url=/game/sangon/index.asp"
else

dim id
	id=Request.QueryString("id")
	if id="" then id=1
	if not isnumeric(id) then id=1
	id=clng(id)

select case v
case "0"
we0="<br/>"
hr="-----------<br/>"
%>
<card id="main" title="剪刀对战"><p align="<%=qingtian.px%>">
<%
case "1"
zi="<span style=""color:#FF5500"">"
zi0="</span>"
we="<div class=""footer"">"
sou="<div class=""block4"">"
dao="<div class=""navi"">"
we0="</div>"
we1="</div>"
%>
<title>剪刀对战</title>
</head>
<body>
<!--#include virtual="/css.inc"-->
<%
End Select
qingtian.info
sangong.tj
if Request.QueryString("act")=1 then
	                Set Rs = Server.CreateObject("Adodb.Recordset")
			Sql = "select * from qingtian_fangd where pid="&id&""
			Rs.Open Sql,cn,1,3
        if rs.RecordCount<14 then
	rs.addnew
        rs("time")=now
	rs("pid")=id
	rs.update
	aid=rs("id")
        end if
	Rs.close

set rs=nothing
Response.Redirect "gamed.asp?pid="&id&"&id="&aid&"&sid="&sidd&""
end if
%>
<%=we%><img src='ssc.gif' alt='剪刀对战' noselect = 'true' /><%=we0%>
<%=dao%>
<%
select case id
case "1"
%>
春兰|<a href='index.asp?id=2&amp;sid=<%=sidd%>'>夏花</a>|<a href='index.asp?id=3&amp;sid=<%=sidd%>'>秋香</a>|<a href='index.asp?id=4&amp;sid=<%=sidd%>'>冬梅</a><%=we0%><%=sou%>
江南春雨兰花，小桥流水人家
<%
case "2"
%>
<a href='index.asp?id=1&amp;sid=<%=sidd%>'>春兰</a>|夏花|<a href='index.asp?id=3&amp;sid=<%=sidd%>'>秋香</a>|<a href='index.asp?id=4&amp;sid=<%=sidd%>'>冬梅</a><%=we0%><%=sou%>
生若夏花般绚烂，死若秋叶般静美
<%
case "3"
%>
<a href='index.asp?id=1&amp;sid=<%=sidd%>'>春兰</a>|<a href='index.asp?id=2&amp;sid=<%=sidd%>'>夏花</a>|秋香|<a href='index.asp?id=4&amp;sid=<%=sidd%>'>冬梅</a><%=we0%><%=sou%>
思君思国思社稷，赏花赏月赏秋香
<%
case "4"
%>
<a href='index.asp?id=1&amp;sid=<%=sidd%>'>春兰</a>|<a href='index.asp?id=2&amp;sid=<%=sidd%>'>夏花</a>|<a href='index.asp?id=3&amp;sid=<%=sidd%>'>秋香</a>|冬梅<%=we0%><%=sou%>
梦里清江醉墨香，蕊寒枝瘦凛冰霜
<%
End Select
%><%=we0%><%=we%>
<%
dim sql,rs,i,strrt
                        Response.Write("<a href='gamedd.asp?pid="&id&"&amp;id=100000&amp;sid=" & sidd & "'>01桌</a>|等候加入|1人"&we0&"")
	                Set Rs = Server.CreateObject("Adodb.Recordset")
			Sql = "select [id],[ton] from qingtian_fangd where pid="&id&" order by [id] asc"
			Rs.Open Sql,cn,1,1
			if not (rs.bof and rs.eof)  then
			For i=1 to rs.RecordCount
                        if i<9 then 
                        kk="0"&i+1&""
                        else
                        kk=i+1
                        end if
                        dattt=i mod 2
                        if dattt=0 then 
                        Response.Write we
                        else 
                        Response.Write sou
                        end if 
                        Response.Write("<a href='gamed.asp?pid="&id&"&amp;id="&rs("id")&"&amp;sid="&sidd&"'>"&kk&"桌</a>|"&sangong.moton(rs("ton"),rs("id"),id)&"|"&sangong.mobe(rs("id"))&"")
                        Response.Write we0
			Rs.MoveNext
			next
			end if
			Rs.close
			Sql = "select top 1 [id] from qingtian_fangd where pid="&id&" and ton=0 order by [id] asc"	
			Rs.Open Sql,cn,1,1
			if not (rs.bof and rs.eof)  then
                        strrt="gamed.asp?pid="&id&"&amp;id="&rs("id")&"&amp;sid="&sidd&""
                        else
                        strrt="index.asp?id="&id&"&amp;act=1&amp;sid="&sidd&""                        
			end if
			Rs.close		
		        set rs=nothing
%><%=hr%>
<%=sou%>
你的<%=sangong.tonn%><%=we0%><%=hr%><%=we%>
自由出手：10-<%=sangong.namejian("money",id)%><%=we0%><%=sou%>
<a href='main.asp?sid=<%=sidd%>'>玩法</a>|<a href='index.asp?id=<%=id%>&amp;act=1&amp;sid=<%=sidd%>'>开桌</a>|<a href='<%=strrt%>'>配对</a>|<a href='new.asp?sid=<%=sidd%>'>排行</a><%=we0%><%=we%><a href="main3.asp?sid=<%=sidd%>">我的成绩</a>.<a href="/game/index.asp?sid=<%=sidd%>">游戏大厅</a><%=we0%>

<%
end if
end function
%>